home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -websites- / wirenet / files / awebjfif.lzx / awebjfif / Install < prev    next >
Text File  |  1998-10-24  |  4KB  |  148 lines
  1. ; $VER: Install_awebjfif_awebplugin
  2. ; Description: Installer script for the "awebjfif" plugin for AWeb-II 3.0+
  3.  
  4. (set #welcome
  5.    (cat "This installation procedure will install the \"awebjfif\" plugin module for AWeb-II version 3.0 or higher.\n"
  6.         "\n"
  7.         "This plugin enables you to view JFIF (JPEG) images in AWeb without the use of datatypes. The plugin has the following features:\n"
  8.         "Optional progressive display\n"
  9.         "Support for image scaling\n"
  10.         "Support for CyberGraphics\n"
  11.    )
  12. )
  13.  
  14. (set #no-aweb3
  15.    (cat "The \"AWeb3:\" assign was not found.\n\n"
  16.         "This plugin can only be used with AWeb-II version 3.0 or higher."
  17.    )
  18. )
  19.  
  20. (set #swap-prompt
  21.    "Select a directory for temporary swap files. See HELP for more info."
  22. )
  23.  
  24. (set #swap-help
  25.    (cat "During the decoding of large images, a lot of memory may be required. "
  26.         "To save actual memory usage for those large images, parts of the "
  27.         "decoder's working memory may be swapped out to your hard disk.\n\n"
  28.         "You should select a directory on your hard disk where these temporary "
  29.         "files may be stored.\n\n"
  30.    )
  31. )
  32.  
  33. (set #show-docs
  34.    (cat "All necessary files have been copied. "
  35.       "To use the plugin, you have to do some additional setup. "
  36.       "This is described in the documentation. "
  37.       "From the documentation, you can run the setup script that performs the additional setup automatically. "
  38.       "\n"
  39.       "Do you want to view the documentation now?\n"
  40.    )
  41. )
  42.  
  43. (set #startup-prompt "Adding the command\n\n%s\n\nto your S:User-Startup")
  44.  
  45. (set #startup-help
  46.    (cat "During the decoding of large images, a lot of memory may be required. "
  47.         "To save actual memory usage for those large images, parts of the "
  48.         "decoder's working memory may be swapped out to your hard disk.\n\n"
  49.         "This assign will allow these temporary files to be stored in the %s drawer.\n\n"
  50.    )
  51. )
  52.  
  53. ; ---------------------------------------------------------------------------
  54.  
  55. (complete 0)
  56.  
  57. (message #welcome)
  58.  
  59. (if (not (exists "AWeb3:"))
  60.    (abort #no-aweb3)
  61. )
  62.  
  63. (complete 10)
  64.  
  65. (if (not (exists "AWeb3:awebplugin"))
  66.    (makedir "AWeb3:awebplugin"
  67.       (infos)
  68.    )
  69. )
  70.  
  71. (set srcdir (pathonly @icon))
  72.  
  73. (copyfiles
  74.    (source (tackon srcdir "awebjfif.awebplugin"))
  75.    (dest "AWeb3:awebplugin")
  76.    (infos)
  77. )
  78.  
  79. (complete 40)
  80.  
  81. (if (not (exists "AWeb3:awebplugin/Docs"))
  82.    (makedir "AWeb3:awebplugin/Docs"
  83.       (infos)
  84.    )
  85. )
  86.  
  87. (copyfiles
  88.    (source srcdir)
  89.    (choices "awebjfif.html" "awebjfif.awebrx")
  90.    (dest "AWeb3:awebplugin/Docs")
  91.    (infos)
  92. )
  93.  
  94. (complete 70)
  95.  
  96. (if (not (exists "JPEGTMP:" (noreq)))
  97.    (
  98.       (set #defaultswap "Work:")
  99.  
  100.       ; Make sure the next question is always asked even in beginner mode
  101.       (if (< @user-level 1)
  102.          (set #olduser (user 1))
  103.          ;else
  104.          (set #olduser @user-level)
  105.       )
  106.  
  107.       (set #swapdir
  108.          (askdir
  109.             (prompt #swap-prompt)
  110.             (help (cat #swap-help @askdir-help))
  111.             (disk)
  112.             (default #defaultswap)
  113.          )
  114.       )
  115.  
  116.       (user #olduser)
  117.  
  118.       (set #assign (cat "Assign JPEGTMP: " #swapdir))
  119.  
  120.       (complete 80)
  121.  
  122.       (startup "AWebJFIF"
  123.          (prompt (#startup-prompt #assign))
  124.          (help (cat (#startup-help #swapdir) @startup-help))
  125.          (command #assign)
  126.       )
  127.  
  128.       (makeassign "JPEGTMP" #swapdir)
  129.    )
  130. )
  131.  
  132. (complete 90)
  133.  
  134. (if
  135.    (askbool
  136.       (prompt #show-docs)
  137.       (help #show-docs)
  138.       (default 1)
  139.    )
  140.    (
  141.       (run "run AWeb3:AWeb-II file:///AWeb3:awebplugin/Docs/awebjfif.html")
  142.    )
  143. )
  144.  
  145. (set @default-dest (expandpath "AWeb3:awebplugin"))
  146.  
  147. (complete 100)
  148.